a = 1
b = a
b = a = 1
a = 1 -> b
save.images()
save.image()
save.image("C:\\Documents and Settings\\conservao\\Meus documentos\\temp 1\\Tut1.2")
A1 = C(1,2,3)
ls()
A1 = c(1,2,3)
A2 = c(10,20,30)
b = c(A1,A2)
ls()
help(ls)
ls(pattern="A")
a.1 = A1
a.2 = A2
ls()
rm( list=c("A1","A2"))
ls()
sava.image()
save.image()
rm(list=ls(pattern="A"))
ls()
rm(A1,A2)
save.image()
copa.70 = "21/07/70"
copa.94 = "17/07/94"
copa.94 - copa.70
class(copa.70)
class(copa.94)
copa.70 = as.Date(copa70,format="%d/%m/%y")
copa.70 = as.Date(copa.70, format="%d,%m,%y")
copa.94 = as.Date(copa.94, format-"%d/%m/%y")
copa.94 = as.Date(copa.94, format="%d/%m/%y")
class(copa.70)
class(copa.94)
copa.94 - copa.70
help(as.Date)
save.image()
her = c("A","M","M","A","A","M","M","B","A","A","A","A","B","A")
herb.f = factor(herb)
her.f = factor(her)
her.t = table(her.f)
her.t
save.image()
plot(her.t)
save.image()
her.f = factor(her, levels=c("N","B","M","A"))
herb.t = table(her.f)
her.t
plot(her.t)
save.image()
library()
help.start()
seach()
search()
save.image()
x1 = rnorm(n=15, mean=1, sd=3)
hist(x1)
truehist(x1)
search()
library(MASS)
search()
truehist(x1)
save.image()
(q())
a = 1
b = a
b = a = 1
a = 1 -> b
save.images()
save.image()
save.image("C:\\Documents and Settings\\conservao\\Meus documentos\\temp 1\\Tut1.2")
A1 = C(1,2,3)
ls()
A1 = c(1,2,3)
A2 = c(10,20,30)
b = c(A1,A2)
ls()
help(ls)
ls(pattern="A")
a.1 = A1
a.2 = A2
ls()
rm( list=c("A1","A2"))
ls()
sava.image()
save.image()
rm(list=ls(pattern="A"))
ls()
rm(A1,A2)
save.image()
copa.70 = "21/07/70"
copa.94 = "17/07/94"
copa.94 - copa.70
class(copa.70)
class(copa.94)
copa.70 = as.Date(copa70,format="%d/%m/%y")
copa.70 = as.Date(copa.70, format="%d,%m,%y")
copa.94 = as.Date(copa.94, format-"%d/%m/%y")
copa.94 = as.Date(copa.94, format="%d/%m/%y")
class(copa.70)
class(copa.94)
copa.94 - copa.70
help(as.Date)
save.image()
her = c("A","M","M","A","A","M","M","B","A","A","A","A","B","A")
herb.f = factor(herb)
her.f = factor(her)
her.t = table(her.f)
her.t
save.image()
plot(her.t)
save.image()
her.f = factor(her, levels=c("N","B","M","A"))
herb.t = table(her.f)
her.t
plot(her.t)
save.image()
library()
help.start()
seach()
search()
save.image()
x1 = rnorm(n=15, mean=1, sd=3)
hist(x1)
truehist(x1)
search()
library(MASS)
search()
truehist(x1)
save.image()
(q())
a = 1
b = a
#
##RESPOSTA: Basta mudar o diretrio?
# 1. Para a mudana ir at o cone 'arquivo', em seguida clicar no cone 'Abrir script...'
# 2. Para restituir o workspace selecionar tudo e executar o comando 'crtl+r'.
#
## RESPOSTA: Um comando perigoso
# 1. Para remoo de todos os objetos executar rm(list=c("nome do objeto"))
# 2. Para evitar a perda usa-se durante o trabalho o comando save.image()
save.image()
q()
#
##RESPOSTA: Objetos de Data
#
hoje = Sys.Date()
class(hoje)
# 1. Sua classe  data
hoje-class(copa.70)
copa.70 <- "21/07/70"
copa.70 <- as.Date(copa.70,format="%d/%m/%y")
class(copa.70)
hoje - copa.70
hoje + 43
#
# 2. A diferena entre as datas  de 14.856 dias
# 3. A data futura  06/05/2011
save.image()
q()